home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 98 / 098.d81 / daisy grafix (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  95 lines
  1. 10 poke56,32:clr:dimd%(30)
  2. 15 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53280,0:poke53281,0
  4. 30 d=0:fori=8to30:close2:open2,i,2:close2:ifst=0thend=d+1:d%(d)=i
  5. 40 next:bb=9*4096+12*256:wipe=49760
  6. 50 dw=49152:cm=dw+256*5:box=cm+15:gw=dw+3*256
  7. 60 fori=1to6:readdp(i):pc(i)=dp(i):next:poke650,128:sysbox,0,39,0,9,32,0
  8. 61 sysbox,0,39,0,24,255,3:sysbox,0,39,0,24,255,14:sysbox,0,39,0,24,255,6
  9. 65 poke53265,11:print"[147]"
  10. 70 sysbox,0,39,1,1,228,13:sysbox,0,39,2,2,160,3:sysbox,0,39,3,3,227,5
  11. 80 print"[159]";:syscm+27,2,"[196] [193][160][201][160][211][160][217][160]-[160][199][160][210][160][193][160][198][160][201] [216]"
  12. 90 sysbox,0,39,5,18,127,14:sysbox,1,38,19,19,64,7:sysbox,1,38,4,4,64,7
  13. 100 sysbox,0,0,4,4,112,7:sysbox,39,39,4,4,110,7:sysbox,0,0,19,19,109,7
  14. 110 sysbox,39,39,19,19,125,7
  15. 120 sysbox,0,0,5,18,93,7:sysbox,39,39,5,18,93,7
  16. 130 sysbox,7,30,8,14,255,6:sysbox,8,31,7,13,160,3
  17. 140 syscm+24,9,8,"[211]etup [208]rinter [195]odes"
  18. 150 syscm+24,9,10,"[204][207][193][196] and [208]rint [199]raphic"
  19. 160 syscm+24,9,12,"[210]eturn to [204][207][193][196][211][212][193][210][146][153]"
  20. 170 syscm+18,168:syscm+27,22,"[195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect":syscm+18,160
  21. 180 sysbox,0,39,0,24,255,0:poke53265,27
  22. 190 fori=0to19:sysbox,19-i,20+i,0,24,255,3:next:syscm+21,160
  23. 200 syscm+21,160:it=1:goto250
  24. 210 geta$:ifa$<>chr$(13)thenifa$<>""anda$<>"[145]"then210
  25. 220 ifa$=chr$(13)thenonitgosub270,470,620:goto200
  26. 230 ifa$=""thenit=it+1:ifit>3thenit=1
  27. 240 ifa$="[145]"thenit=it-1:ifit<1thenit=3
  28. 250 syscm+21,160:sysbox,8,31,it*2+6,it*2+6,255,1:goto210
  29. 260 ms$="[208]lease [211]elect [196]rive":gosub720:sysbb,9,15,27,d,7+128,129,0
  30. 270 syscm+21,168
  31. 280 syscm+24,0,20,"[146][159]    [196]efault setting is for [195]ommodore":print
  32. 285 print"    [196][208][211] 1101 [196]aisy wheel printer.
  33. 290 [153]"    (NULL)se default printer codes? ((NULL)open/(NULL)open)"
  34. 300 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]300
  35. 310 [139]a$[178]"y"[167][129]i[178]1[164]6:pc(i)[178]dp(i):[130]:[142]
  36. 320 [158]cm[170]21,168:[158]cm[170]24,0,20," openvalnter (NULL)(NULL)right$ escape code #1: ":[158]gw,1,13,3
  37. 330 pc(1)[178][197](w$):[158]cm[170]24,0,21," openvalnter (NULL)(NULL)right$ escape code #2: ":[158]gw,1,13,3
  38. 340 pc(2)[178][197](w$):[158]cm[170]24,0,22," openvalnter (NULL)(NULL)right$ escape code #3: ":[158]gw,1,13,3
  39. 350 pc(3)[178][197](w$):[158]cm[170]27,24,"lenorrect?  ((NULL)/(NULL))"
  40. 360 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]360
  41. 370 [139]a$[178]"n"[167]320
  42. 380 [158]cm[170]21,168:[158]cm[170]24,0,20," openvalnter left$(NULL)right$ escape code #1: ":[158]gw,1,13,3
  43. 390 pc(4)[178][197](w$):[158]cm[170]24,0,21," openvalnter left$(NULL)right$ escape code #2: ":[158]gw,1,13,3
  44. 400 pc(5)[178][197](w$):[158]cm[170]24,0,22," openvalnter left$(NULL)right$ escape code #3: ":[158]gw,1,13,3
  45. 410 pc(6)[178][197](w$):[158]cm[170]27,24,"lenorrect?  ((NULL)/(NULL))"
  46. 420 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]420
  47. 430 [139]a$[178]"n"[167]380
  48. 440 ms$[178]"(NULL)econdary addr (0-9) 0 = don't care":[141]670:[139]a$[179]"0"[176]a$[177]"9"[167]440
  49. 450 sa[178][197](a$)
  50. 460 [142]
  51. 470 [158]cm[170]21,168:[141]730
  52. 480 [158]cm,"$:*=p",dv,53248,11,11,10,5,7
  53. 490 [139][197](e$)[167]ms$[178]e$:[141]670
  54. 500 [139]f$[178]""[175][197](e$)[178]0[167][142]
  55. 510 [158]wipe:ms$[178]"(NULL)oading "[170][199](34)[170]f$[170][199](34):[151]787,1:[141]670
  56. 520 [158]cm[170]30,f$,dv,8192:[158]cm[170]21,160:[141]790:[158]cm[170]21,160
  57. 530 ms$[178]"(NULL)rint graphic? ((NULL)/(NULL))":[141]670:[139]a$[179][177]"y"[167] 610
  58. 540 [158]49161:ms$[178]"lenounting (NULL)ixels...":[151]787,1:[141]670:[158]49155
  59. 550 pixels[178][194](252)[172]256[170][194](251):[139]pixels[179][178]32000[167]580
  60. 560 ms$[178][196](pixels)[170]" dots.  (NULL)(NULL)(NULL) ="[170][196](64000[171]pixels)[170]" (NULL)(NULL)? ((NULL)/(NULL))":[141]670
  61. 570 [139]a$[178]"y"[167][158]49158
  62. 580 ms$[178]"(NULL)et top of form/(NULL)val(NULL)(NULL)(NULL)(NULL)/(NULL)":[141]670:[139]a$[179][177][199](13)[167][142]
  63. 590 [158]cm[170]21,168:a$[178]"just passin'":[141]800:[160]4
  64. 600 [158]49152,pc(1),pc(2),pc(3),pc(4),pc(5),pc(6),sa:[160]4:[141]860:[142]
  65. 610 [158]cm[170]3,11,11,10,5,7:[137]490
  66. 620 ms$[178]"(NULL)uit?  atnre you sure?  ((NULL)/(NULL))":[141]670:[139]a$[179][177]"y"[167] [142]
  67. 630 [151]56,160:[158]cm[170]42,"r:hello connect=hello connect",8
  68. 640 [139][197](e$)[179][177]63[167][153]"load":[128]
  69. 650 [153]"loadstop":[158]cm[170]33,"hello connect",8:[128]
  70. 660 [131] 27,30,2,27,31,4:[143] dps1101
  71. 670 [158]cm[170]18,176:[158]cm[170]15,1,36,11,13,255,6:[158]cm[170]15,2,37,10,12,160,7
  72. 680 [139]ms$[178]""[167]ms$[178]"(NULL)ress a key..."
  73. 690 [153]"sys";:[158]cm[170]27,11,ms$:[139][194](787)[167][151]787,0:[142]
  74. 700 [151]198,0:[146]198,15:[161]a$:[158]cm[170]21,168:[142]
  75. 710 [158]cm[170]21,176:[141]670:[142]
  76. 720 [153]"";:[158]cm[170]18,176:[158]cm[170]15,0,39,23,23,160,1:[158]cm[170]27,23,ms$:[142]
  77. 730 [139]d[178]1[167][142]
  78. 735 [158]cm[170]18,184:[158]cm[170]15,14,26,9,9[170]d[170]1,255,6:[158]cm[170]15,15,27,8,8[170]d[170]1,160,7
  79. 740 [153]"sys";:[129]i[178]1[164]d:[158]cm[170]24,20,8[170]i,[196](d%(i)):[130]
  80. 750 ms$[178]"(NULL)lease (NULL)elect str$rive":[141]720:[158]bb,9,15,27,d,7[170]128,129,0
  81. 760 [158]cm[170]21,184:[161]a$:dv[178]d%([197](a$)):[160]2:[159]2,dv,2:[160]2
  82. 770 [139]st[167][158]cm[170]21,18:[137]730
  83. 780 [158]cm[170]21,184:[142]
  84. 790 [143] ms$="(NULL)iew graphic? ((NULL)/(NULL))":gosub670:ifa$<>"y"thenreturn
  85. 800 [151]53265,59:[151]53272,24:fg[178]3:bg[178]0
  86. 810 [158]cm[170]15,0,39,0,24,fg[170]bg[172]16,15:[151]198,0:[139]a$[178]"just passin'"[167][142]
  87. 815 [146]198,15:[161]a$
  88. 820 [139]a$[178][199](13)[176]a$[178]" "[176]a$[178]"q"[167]860
  89. 830 [139]a$[178]"input"[167]fg[178](fg[170]1)[175]15:[139]fg[178]bg[167]830
  90. 840 [139]a$[178]"let"[167]bg[178](bg[170]1)[175]15:[139]bg[178]fg[167]840
  91. 850 [137]810
  92. 860 [151]53265,27:[151]53272,23:[142]
  93. 870 [144]
  94. 10000 [160]15:[159]15,8,15,"s:daisy grafix":[148]"daisy grafix",8
  95.